home *** CD-ROM | disk | FTP | other *** search
/ Cocktail Hour / image.iso / SLIDES.CST / 00002_INIT the slide show.ls next >
Encoding:
Text File  |  1996-12-11  |  342 b   |  11 lines
  1. on exitFrame
  2.   global gAutoMode, gHistoryList, gDirection0IsBack1IsFwd, gCurrentZone
  3.   
  4.   if getLast(gHistoryList) <> "SlideShow" then append (gHistoryList, "SlideShow")
  5.   put FALSE into gAutoMode
  6.   put 1 into gCurrentZone   -- line num
  7.   put 1 into gDirection0IsBack1IsFwd
  8.   resetCursorsAndPupts
  9.   cursorize 15, 27
  10.   puppetSprite 5, TRUE
  11. end